<% dim series,name,Connect, Query series= request("series") name= request("name") If series= "" Then Response.Write "Oops... no pics here!.

" Else Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "gallery" Query = "SELECT id,date,filename,path,description,series FROM main WHERE series=" & series Set bclssb = Connect.Execute(Query) %>

[ back to  s h u m  d e s i g n s  gallery]    

    Series: <%=name%>
<% Do While Not bclssb.EOF %> " target="main"><%=bclssb("id")%> <% bClssb.MoveNext Loop End If %>